1 GOSUB60100:CLR
5 POKE53280,.:POKE53281,.
10 PRINT"[147]    ALPHABET TRAINER - R. S. STOKAN[158]"
15 PRINT" PRESS THE ABOVE LETTER ON THE KEYBOARD"
16 PRINT"           (PRESS F1[158] TO QUIT)":W=.
20 FORA=65TO90
30 GOSUB100:POKE198,.
40 GETA$:IFA$=""THEN40
42 IFA$="[133]"THENGOSUB60050:POKE198,.:GOTO40
45 IFA$<>CHR$(A)THENW=W+1:POKE53280,2:FORMM=1TO10:NEXT:POKE53280,.:GOTO40
50 NEXTA
60 PRINT"":FORJ=1TO12:PRINT:NEXT
70 PRINTTAB(7);:FORA=65TO90:PRINTCHR$(A);:NEXT
80 PRINT"[154]"
90 PRINT""
92 PRINT"         YOU MIS-TYPED"W"LETTERS."
94 PRINT"PRESS SPACE TO USE THIS PROGRAM AGAIN. "
96 PRINT"PRESS RETURN TO RETURN TO LOADSTAR."
97 A=PEEK(203):IFA<>60ANDA<>1THEN97
98 IFA=60THEN5
99 GOTO60000
100 PRINT"":FORJ=1TO12
110 PRINTTAB(20);CHR$(A);"[145]"
120 PRINTTAB(20);" ":NEXT
130 PRINTTAB(20);CHR$(A)
140 RETURN
60000 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
60010 IFER<>63THENEND
60020 LOAD"HELLO CONNECT",8
60050 PRINT"  [154]ARE YOU SURE YOU WANT TO QUIT? (Y[154]/N[154])"
60060 Z=PEEK(203):IFZ<>25ANDZ<>39THEN60060
60070 IFZ=25THEN60000
60080 PRINT"           [158](PRESS F1 [158]TO QUIT)         "
60090 RETURN
60100 POKE53280,7:POKE53281,7
60110 PRINTCHR$(142)"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
60120 FORA=1TO23:PRINT"[221]"SPC(38)"[221]";:NEXT
60130 PRINT"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203][157][148][192]"
60140 FORA=217TO242:POKEA,PEEK(A)OR128:NEXT
60150 PRINT"          LOADSTAR PRESENTS:"
60160 PRINT"                               "
60170 PRINT"           ALPHABET TRAINER    [129] "
60180 PRINT"                               [129] "
60190 PRINT"           BY  R. S. STOKAN    [129] "
60200 PRINT"                               [129] "
60210 PRINT"            COPYRIGHT 1987     [129] "
60220 PRINT"                               [129] "
60230 PRINT"                                "
60240 PRINT"        PRESS SPACE TO CONTINUE"
60250 IFPEEK(203)<>60THEN60250
60260 RETURN